;input variables required; [s] [zs] [k]
;outputs; [drive]
;
{AddTable:'{SysPath:Toolbox}\ISO\_Common\ISO 10664_Hexalobular internal driving.csv'}
;import the hexalobular socket (ISO-10664)
_-Import "{SysPath:Toolbox}\ISO\_Common\ISO 10664_Hexalobular internal driving.3dm" _Enter
;scale the socket
_Scale 0,0,0 [A]
;place the socket
{Set:[A]={ToDocUnits:[A]}}
{Set:[tip]={Math:([A]/2)*tan(30d)}}
_Move 0,0,0 0,0,[zs]-[tip]
{Set:[drive]={SelectedObjs}}
_SelNone
;
;Counterbore
_Circle _2Point (-[A]/2)-[tol],0,0 ([A]/2)+[tol],0,0
_SelLast
{ExtrudeCrv:[tol]:0,0,[A]}
{Set:[cb]={ToDocUnits:0.18}} ; < 0,13 mm up to socket No. 15, < 0,25 mm over socket No. 15
_Move 0,0,0 0,0,[k]-[cb]
;
_SelId [drive]
{BooleanUnion:[tol]}
{Set:[drive]={SelectedObjs}}
_SelNone

